inherited dm_formafarmaceutica: Tdm_formafarmaceutica
  OldCreateOrder = True
  Left = 264
  Top = 223
  Height = 461
  Width = 864
  inherited sqlConsulta: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'empresa'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    ff.COD_FORMA,'
      '    ff.LIG_COD_INVOLUCRO_TIPO,'
      '    ff.LIG_COD_OP_RODAPE,'
      '    ff.DESCRICAO,'
      '    ff.VALIDADE,'
      '    ff.PERC_TOLERANCIA_MAIS,'
      '    ff.PERC_TOLERANCIA_MENOS,'
      '    ff.CATEGORIA_FF,'
      '    ff.GRUPO_FF,'
      '    ff.QSP,'
      '    ff.CUSTO_OPERACIONAL,'
      '    ff.PRECO_MINIMO,'
      '    case'
      '      when ff.LISTAR_PEDIDO = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '    end as LISTAR_PEDIDO,'
      '    case'
      
        '      when ff.UTILIZAR_CASA_DECIMAL = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227 +
        'o'#39
      '    end as UTILIZAR_CASA_DECIMAL,'
      '    case'
      '      when ff.CONTEM = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '    end as CONTEM,'
      '    ff.OBS,'
      '    ff.DATA_CAD,'
      '    ff.DATA_ALTERACAO,'
      '    a.descricao as involucro_tipo'
      'from F_FORMA_FARMACEUTICA ff'
      
        'left join f_involucro_tipo a on (a.cod_involucro_tipo = ff.lig_c' +
        'od_involucro_tipo)'
      
        'left join f_forma_multiempresa b on (b.lig_cod_forma = ff.cod_fo' +
        'rma)'
      'where b.lig_cod_empresa = :empresa')
    Left = 392
  end
  inherited dspConsulta: TDataSetProvider
    Left = 392
  end
  inherited cdsConsulta: TClientDataSet
    Left = 392
    object cdsConsultaCOD_FORMA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_FORMA'
      Required = True
    end
    object cdsConsultaLIG_COD_INVOLUCRO_TIPO: TIntegerField
      FieldName = 'LIG_COD_INVOLUCRO_TIPO'
      Required = True
    end
    object cdsConsultaLIG_COD_OP_RODAPE: TIntegerField
      FieldName = 'LIG_COD_OP_RODAPE'
    end
    object cdsConsultaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaVALIDADE: TIntegerField
      FieldName = 'VALIDADE'
    end
    object cdsConsultaPERC_TOLERANCIA_MAIS: TIntegerField
      FieldName = 'PERC_TOLERANCIA_MAIS'
    end
    object cdsConsultaPERC_TOLERANCIA_MENOS: TIntegerField
      FieldName = 'PERC_TOLERANCIA_MENOS'
    end
    object cdsConsultaCATEGORIA_FF: TStringField
      FieldName = 'CATEGORIA_FF'
      Size = 50
    end
    object cdsConsultaGRUPO_FF: TStringField
      FieldName = 'GRUPO_FF'
      Size = 50
    end
    object cdsConsultaQSP: TStringField
      FieldName = 'QSP'
      Size = 10
    end
    object cdsConsultaCUSTO_OPERACIONAL: TFMTBCDField
      FieldName = 'CUSTO_OPERACIONAL'
      Precision = 15
      Size = 2
    end
    object cdsConsultaPRECO_MINIMO: TFMTBCDField
      FieldName = 'PRECO_MINIMO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaLISTAR_PEDIDO: TStringField
      FieldName = 'LISTAR_PEDIDO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaUTILIZAR_CASA_DECIMAL: TStringField
      FieldName = 'UTILIZAR_CASA_DECIMAL'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaCONTEM: TStringField
      FieldName = 'CONTEM'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
    object cdsConsultaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaINVOLUCRO_TIPO: TStringField
      FieldName = 'INVOLUCRO_TIPO'
      Size = 100
    end
    object cdsConsultasqlConsultaUnidade: TDataSetField
      FieldName = 'sqlConsultaUnidade'
    end
    object cdsConsultasqlConsultaIndicacao: TDataSetField
      FieldName = 'sqlConsultaIndicacao'
    end
    object cdsConsultasqlConsultaPosologia: TDataSetField
      FieldName = 'sqlConsultaPosologia'
    end
    object cdsConsultasqlConsultaLaboratorio: TDataSetField
      FieldName = 'sqlConsultaLaboratorio'
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_forma_farmaceutica,1)'
      'FROM RDB$DATABASE')
    Left = 45
    Top = 241
  end
  inherited dspRegistro: TDataSetProvider
    Options = [poCascadeDeletes, poCascadeUpdates]
    Left = 464
  end
  inherited cdsRegistro: TClientDataSet
    OnReconcileError = cdsRegistroReconcileError
    Left = 464
    object cdsRegistroCOD_FORMA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_FORMA'
      Required = True
    end
    object cdsRegistroLIG_COD_INVOLUCRO_TIPO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_INVOLUCRO_TIPO'
    end
    object cdsRegistroLIG_COD_OP_RODAPE: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_OP_RODAPE'
    end
    object cdsRegistroDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsRegistroVALIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'VALIDADE'
    end
    object cdsRegistroPERC_TOLERANCIA_MAIS: TIntegerField
      Alignment = taCenter
      FieldName = 'PERC_TOLERANCIA_MAIS'
    end
    object cdsRegistroPERC_TOLERANCIA_MENOS: TIntegerField
      Alignment = taCenter
      FieldName = 'PERC_TOLERANCIA_MENOS'
    end
    object cdsRegistroCATEGORIA_FF: TStringField
      FieldName = 'CATEGORIA_FF'
      Size = 50
    end
    object cdsRegistroGRUPO_FF: TStringField
      FieldName = 'GRUPO_FF'
      Size = 50
    end
    object cdsRegistroQSP: TStringField
      FieldName = 'QSP'
      Size = 10
    end
    object cdsRegistroCUSTO_OPERACIONAL: TFMTBCDField
      Alignment = taCenter
      FieldName = 'CUSTO_OPERACIONAL'
      Precision = 15
      Size = 2
    end
    object cdsRegistroPRECO_MINIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PRECO_MINIMO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroLISTAR_PEDIDO: TStringField
      FieldName = 'LISTAR_PEDIDO'
      Size = 5
    end
    object cdsRegistroUTILIZAR_CASA_DECIMAL: TStringField
      FieldName = 'UTILIZAR_CASA_DECIMAL'
      Size = 5
    end
    object cdsRegistroCONTEM: TStringField
      FieldName = 'CONTEM'
      Size = 5
    end
    object cdsRegistroOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
    object cdsRegistroDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsRegistrosqlFormaPosologia: TDataSetField
      FieldName = 'sqlFormaPosologia'
    end
    object cdsRegistrosqlFormaIndicacao: TDataSetField
      FieldName = 'sqlFormaIndicacao'
    end
    object cdsRegistrosqlFormaUnidade: TDataSetField
      FieldName = 'sqlFormaUnidade'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'cod_forma'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    ff.COD_FORMA,'
      '    ff.LIG_COD_INVOLUCRO_TIPO,'
      '    ff.LIG_COD_OP_RODAPE,'
      '    ff.DESCRICAO,'
      '    ff.VALIDADE,'
      '    ff.PERC_TOLERANCIA_MAIS,'
      '    ff.PERC_TOLERANCIA_MENOS,'
      '    ff.CATEGORIA_FF,'
      '    ff.GRUPO_FF,'
      '    ff.QSP,'
      '    ff.CUSTO_OPERACIONAL,'
      '    ff.PRECO_MINIMO,'
      '    ff.LISTAR_PEDIDO,'
      '    ff.utilizar_casa_decimal,'
      '    ff.CONTEM,'
      '    ff.OBS,'
      '    ff.DATA_CAD,'
      '    ff.DATA_ALTERACAO'
      'from F_FORMA_FARMACEUTICA ff'
      'where ff.cod_forma = :cod_forma')
    Left = 464
  end
  object cdsConsultaUnidade: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaUnidade
    Params = <>
    Left = 49
    Top = 17
    object cdsConsultaUnidadeCOD_UNIDADE: TIntegerField
      FieldName = 'COD_UNIDADE'
      Required = True
    end
    object cdsConsultaUnidadeDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaUnidadeABREVIACAO: TStringField
      FieldName = 'ABREVIACAO'
      Required = True
      Size = 5
    end
    object cdsConsultaUnidadeUNID_PADRAO: TStringField
      FieldName = 'UNID_PADRAO'
      Size = 5
    end
    object cdsConsultaUnidadeUNID_PADRAO_DESC: TStringField
      FieldName = 'UNID_PADRAO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaUnidadeUNID_ESPECIAL: TStringField
      FieldName = 'UNID_ESPECIAL'
      Size = 5
    end
    object cdsConsultaUnidadeUNID_ESPECIAL_DESC: TStringField
      FieldName = 'UNID_ESPECIAL_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaUnidadeFRACIONAR_ESTOQUE: TStringField
      FieldName = 'FRACIONAR_ESTOQUE'
      Size = 5
    end
    object cdsConsultaUnidadeFRACIONAR_ESTOQUE_DESC: TStringField
      FieldName = 'FRACIONAR_ESTOQUE_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaUnidadePERC_CALCULO: TStringField
      FieldName = 'PERC_CALCULO'
      Size = 5
    end
    object cdsConsultaUnidadePERC_CALCULO_DESC: TStringField
      FieldName = 'PERC_CALCULO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaUnidadeOP_CONVERSAO: TStringField
      FieldName = 'OP_CONVERSAO'
      Size = 15
    end
    object cdsConsultaUnidadeESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      Size = 15
    end
    object cdsConsultaUnidadeVALOR_CORRESPONDENTE: TIntegerField
      FieldName = 'VALOR_CORRESPONDENTE'
      Required = True
    end
    object cdsConsultaUnidadeDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaUnidadeDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object cdsConsultaIndicacao: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaIndicacao
    Params = <>
    Left = 49
    Top = 65
    object cdsConsultaIndicacaoCOD_INDICACAO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_INDICACAO'
      Required = True
    end
    object cdsConsultaIndicacaoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaIndicacaoDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaIndicacaoDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object cdsConsultaPosologia: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaPosologia
    Params = <>
    Left = 49
    Top = 113
    object cdsConsultaPosologiaCOD_POSOLOGIA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_POSOLOGIA'
      Required = True
    end
    object cdsConsultaPosologiaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaPosologiaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaPosologiaDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object sqlConsultaPosologia: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    p.cod_posologia,'
      '    p.descricao,'
      '    p.data_cad,'
      '    p.data_alteracao'
      'from f_forma_posologia p'
      'where p.lig_cod_forma = :cod_forma'
      'order by p.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 162
    Top = 114
    object sqlConsultaPosologiaCOD_POSOLOGIA: TIntegerField
      FieldName = 'COD_POSOLOGIA'
      Required = True
    end
    object sqlConsultaPosologiaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlConsultaPosologiaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaPosologiaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object sqlConsultaIndicacao: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    i.cod_indicacao,'
      '    i.descricao,'
      '    i.data_cad,'
      '    i.data_alteracao'
      'from F_INDICACAO_USO i'
      
        'left join f_forma_indicacao_uso a on (a.lig_cod_indicacao = i.co' +
        'd_indicacao)'
      'where a.lig_cod_forma = :cod_forma'
      'order by i.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 162
    Top = 65
    object sqlConsultaIndicacaoCOD_INDICACAO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_INDICACAO'
      Required = True
    end
    object sqlConsultaIndicacaoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlConsultaIndicacaoDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaIndicacaoDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object sqlConsultaUnidade: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    u.COD_UNIDADE,'
      '    u.DESCRICAO,'
      '    u.ABREVIACAO,'
      '    u.UNID_PADRAO,'
      '    case'
      '      when u.unid_padrao = '#39'True'#39' then '#39'SIM'#39' else '#39'NAO'#39
      '    end as UNID_PADRAO_DESC,'
      '    u.UNID_ESPECIAL,'
      '    case'
      '      when u.unid_especial = '#39'True'#39' then '#39'SIM'#39' else '#39'NAO'#39
      '    end as UNID_ESPECIAL_DESC,'
      '    u.FRACIONAR_ESTOQUE,'
      '    case'
      '      when u.FRACIONAR_ESTOQUE = '#39'True'#39' then '#39'SIM'#39' else '#39'NAO'#39
      '    end as FRACIONAR_ESTOQUE_DESC,'
      '    u.PERC_CALCULO,'
      '    case'
      '      when u.PERC_CALCULO = '#39'True'#39' then '#39'SIM'#39' else '#39'NAO'#39
      '    end as PERC_CALCULO_DESC,'
      '    u.OP_CONVERSAO,'
      '    u.ESTADO_FISICO,'
      '    u.VALOR_CORRESPONDENTE,'
      '    u.data_cad,'
      '    u.data_alteracao'
      'from unidade_medida u'
      
        'left join f_forma_unidade_medida a on (a.lig_cod_unidade = u.cod' +
        '_unidade)'
      'where a.lig_cod_forma = :COD_FORMA')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 162
    Top = 18
    object sqlConsultaUnidadeCOD_UNIDADE: TIntegerField
      FieldName = 'COD_UNIDADE'
      Required = True
    end
    object sqlConsultaUnidadeDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlConsultaUnidadeABREVIACAO: TStringField
      FieldName = 'ABREVIACAO'
      Required = True
      Size = 5
    end
    object sqlConsultaUnidadeUNID_PADRAO: TStringField
      FieldName = 'UNID_PADRAO'
      Size = 5
    end
    object sqlConsultaUnidadeUNID_PADRAO_DESC: TStringField
      FieldName = 'UNID_PADRAO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object sqlConsultaUnidadeUNID_ESPECIAL: TStringField
      FieldName = 'UNID_ESPECIAL'
      Size = 5
    end
    object sqlConsultaUnidadeUNID_ESPECIAL_DESC: TStringField
      FieldName = 'UNID_ESPECIAL_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object sqlConsultaUnidadeFRACIONAR_ESTOQUE: TStringField
      FieldName = 'FRACIONAR_ESTOQUE'
      Size = 5
    end
    object sqlConsultaUnidadeFRACIONAR_ESTOQUE_DESC: TStringField
      FieldName = 'FRACIONAR_ESTOQUE_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object sqlConsultaUnidadePERC_CALCULO: TStringField
      FieldName = 'PERC_CALCULO'
      Size = 5
    end
    object sqlConsultaUnidadePERC_CALCULO_DESC: TStringField
      FieldName = 'PERC_CALCULO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object sqlConsultaUnidadeOP_CONVERSAO: TStringField
      FieldName = 'OP_CONVERSAO'
      Size = 15
    end
    object sqlConsultaUnidadeESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      Size = 15
    end
    object sqlConsultaUnidadeVALOR_CORRESPONDENTE: TIntegerField
      FieldName = 'VALOR_CORRESPONDENTE'
      Required = True
    end
    object sqlConsultaUnidadeDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaUnidadeDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object dsMestre_Detalhe_Consulta: TDataSource
    DataSet = sqlConsulta
    Left = 289
    Top = 18
  end
  object cdsFormaPosologia: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlFormaPosologia
    Params = <>
    Left = 745
    Top = 113
    object cdsFormaPosologiaCOD_POSOLOGIA: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_POSOLOGIA'
      Required = True
    end
    object cdsFormaPosologiaLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsFormaPosologiaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsFormaPosologiaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsFormaPosologiaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object cdsFormaIndicacao: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlFormaIndicacao
    Params = <>
    Left = 745
    Top = 65
    object cdsFormaIndicacaoLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsFormaIndicacaoLIG_COD_INDICACAO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_INDICACAO'
      Required = True
    end
    object cdsFormaIndicacaoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = []
      Size = 100
    end
  end
  object cdsFormaMedida: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlFormaUnidade
    Params = <>
    Left = 745
    Top = 17
    object cdsFormaMedidaLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsFormaMedidaLIG_COD_UNIDADE: TIntegerField
      FieldName = 'LIG_COD_UNIDADE'
      Required = True
    end
    object cdsFormaMedidaUNIDADE: TStringField
      FieldName = 'UNIDADE'
      ProviderFlags = []
      Size = 100
    end
    object cdsFormaMedidaABREVIACAO: TStringField
      FieldName = 'ABREVIACAO'
      ProviderFlags = []
      Size = 5
    end
    object cdsFormaMedidaESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      ProviderFlags = []
      Size = 15
    end
  end
  object sqlFormaUnidade: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    u.lig_cod_forma,'
      '    u.lig_cod_unidade,'
      '    a.descricao as unidade,'
      '    a.abreviacao,'
      '    a.estado_fisico'
      'from F_FORMA_UNIDADE_MEDIDA u'
      
        'left join unidade_medida a on (a.cod_unidade = u.lig_cod_unidade' +
        ')'
      'where u.lig_cod_forma = :COD_FORMA')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 642
    Top = 18
    object sqlFormaUnidadeLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object sqlFormaUnidadeLIG_COD_UNIDADE: TIntegerField
      FieldName = 'LIG_COD_UNIDADE'
      Required = True
    end
    object sqlFormaUnidadeUNIDADE: TStringField
      FieldName = 'UNIDADE'
      ProviderFlags = []
      Size = 100
    end
    object sqlFormaUnidadeABREVIACAO: TStringField
      FieldName = 'ABREVIACAO'
      ProviderFlags = []
      Size = 5
    end
    object sqlFormaUnidadeESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      ProviderFlags = []
      Size = 15
    end
  end
  object sqlFormaIndicacao: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    i.lig_cod_forma,'
      '    i.lig_cod_indicacao,'
      '    a.descricao'
      'from F_FORMA_INDICACAO_USO i'
      
        'left join f_indicacao_uso a on (a.cod_indicacao = i.lig_cod_indi' +
        'cacao)'
      'where i.lig_cod_forma = :cod_forma')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 642
    Top = 66
    object sqlFormaIndicacaoLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object sqlFormaIndicacaoLIG_COD_INDICACAO: TIntegerField
      FieldName = 'LIG_COD_INDICACAO'
      Required = True
    end
    object sqlFormaIndicacaoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = []
      Size = 100
    end
  end
  object sqlFormaPosologia: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    p.cod_posologia,'
      '    p.lig_cod_forma,'
      '    p.descricao,'
      '    p.data_cad,'
      '    p.data_alteracao'
      'from F_FORMA_POSOLOGIA p'
      'where p.lig_cod_forma = :cod_forma')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 642
    Top = 114
    object sqlFormaPosologiaCOD_POSOLOGIA: TIntegerField
      FieldName = 'COD_POSOLOGIA'
      Required = True
    end
    object sqlFormaPosologiaLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object sqlFormaPosologiaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlFormaPosologiaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlFormaPosologiaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object dsMestre_Detalhe: TDataSource
    DataSet = sqlRegistro
    Left = 547
    Top = 17
  end
  object qryPKFormaPosologia: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_forma_posologia,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 200
    Top = 241
    object qryPKFormaPosologiaGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
  object qryPKForma: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_forma_farmaceutica,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 112
    Top = 241
    object qryPKFormaGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
  object cdsAuxUnidade: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 330
    Top = 242
    Data = {
      8D0000009619E0BD0100000018000000040000000000030000008D000B434F44
      5F554E494441444504000100000000000944455343524943414F010049000000
      01000557494454480200020064000A4142524556494143414F01004900000001
      00055749445448020002000A000D45535441444F5F46495349434F0100490000
      000100055749445448020002000F000000}
    object cdsAuxUnidadeCOD_UNIDADE: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_UNIDADE'
    end
    object cdsAuxUnidadeDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object cdsAuxUnidadeABREVIACAO: TStringField
      Alignment = taCenter
      FieldName = 'ABREVIACAO'
      Size = 10
    end
    object cdsAuxUnidadeESTADO_FISICO: TStringField
      FieldName = 'ESTADO_FISICO'
      Size = 15
    end
  end
  object cdsAuxIndicacaoUso: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 427
    Top = 242
    Data = {
      4E0000009619E0BD0100000018000000020000000000030000004E000D434F44
      5F494E4449434143414F04000100000000000944455343524943414F01004900
      000001000557494454480200020064000000}
    object cdsAuxIndicacaoUsoCOD_INDICACAO: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_INDICACAO'
    end
    object cdsAuxIndicacaoUsoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
  end
  object cdsAuxPosologia: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 524
    Top = 242
    Data = {
      380000009619E0BD010000001800000001000000000003000000380009444553
      43524943414F01004900000001000557494454480200020064000000}
    object cdsAuxPosologiaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
  end
  object sqlProducaoEmpresa: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select'
      '  e.cod_empresa,'
      '  e.cod_empresa ||'#39' | '#39'||'
      '  e.descricao_multiempresa'
      '  ||'#39'   CONTATO: '#39'|| e.tel_comercial'
      '  ||'#39'   RESPONSAVEL: '#39'|| e.responsavel as empresa'
      'from empresa e'
      'where e.sistema_status = '#39'True'#39
      'order by e.descricao_multiempresa')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 656
    Top = 248
  end
  object dspProducaoEmpresa: TDataSetProvider
    DataSet = sqlProducaoEmpresa
    Left = 656
    Top = 296
  end
  object cdsProducaoEmpresa: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspProducaoEmpresa'
    Left = 656
    Top = 344
    object cdsProducaoEmpresaEMPRESA: TStringField
      FieldName = 'EMPRESA'
      Size = 193
    end
    object cdsProducaoEmpresaCOD_EMPRESA: TIntegerField
      FieldName = 'COD_EMPRESA'
      Required = True
    end
  end
  object spInserirProducao: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'COD_EMPRESA'
        ParamType = ptInput
      end>
    SQLConnection = dmGeral.SQLConnectionBD
    StoredProcName = 'FORMA_INSERIR_PRODUCAO'
    Left = 45
    Top = 319
  end
  object spRemoverProducao: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
      end>
    SQLConnection = dmGeral.SQLConnectionBD
    StoredProcName = 'FORMA_REMOVER_PRODUCAO'
    Left = 149
    Top = 319
  end
  object sqlConsultaLaboratorio: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  a.lig_cod_forma,'
      '  a.lig_cod_empresa,'
      '  b.descricao_multiempresa,'
      '  b.tel_comercial,'
      '  b.endereco ||'#39', '#39'|| b.numero as endereco,'
      '  b.localidade ||'#39'/'#39'|| b.uf as localidade,'
      '  b.responsavel'
      'from f_forma_multiempresa a'
      'left join empresa b on (b.cod_empresa = a.lig_cod_empresa)'
      'where a.lig_cod_forma = :cod_forma')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 163
    Top = 160
    object sqlConsultaLaboratorioLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object sqlConsultaLaboratorioLIG_COD_EMPRESA: TIntegerField
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object sqlConsultaLaboratorioDESCRICAO_MULTIEMPRESA: TStringField
      FieldName = 'DESCRICAO_MULTIEMPRESA'
      Size = 50
    end
    object sqlConsultaLaboratorioTEL_COMERCIAL: TStringField
      FieldName = 'TEL_COMERCIAL'
      Size = 15
    end
    object sqlConsultaLaboratorioENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 106
    end
    object sqlConsultaLaboratorioLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Size = 103
    end
    object sqlConsultaLaboratorioRESPONSAVEL: TStringField
      FieldName = 'RESPONSAVEL'
      Size = 100
    end
  end
  object cdsConsultaLaboratorio: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaLaboratorio
    Params = <>
    Left = 48
    Top = 160
    object cdsConsultaLaboratorioLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsConsultaLaboratorioLIG_COD_EMPRESA: TIntegerField
      FieldName = 'LIG_COD_EMPRESA'
      Required = True
    end
    object cdsConsultaLaboratorioDESCRICAO_MULTIEMPRESA: TStringField
      FieldName = 'DESCRICAO_MULTIEMPRESA'
      Size = 50
    end
    object cdsConsultaLaboratorioTEL_COMERCIAL: TStringField
      FieldName = 'TEL_COMERCIAL'
      Size = 15
    end
    object cdsConsultaLaboratorioENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 106
    end
    object cdsConsultaLaboratorioLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Size = 103
    end
    object cdsConsultaLaboratorioRESPONSAVEL: TStringField
      FieldName = 'RESPONSAVEL'
      Size = 100
    end
  end
end
